home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / HL.LSP < prev    next >
Text File  |  1995-01-20  |  952b  |  26 lines
  1. ;Heals lines together, makes the line the same layer as the first one picked
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:HL ()
  5. (SETQ B (ENTSEL "\nPick 1st Line: "))
  6. (IF (= B nil)(ERR))
  7. (IF (= "LINE" (CDR (ASSOC 0 (SETQ E (ENTGET (SETQ L (CAR B)))))))
  8.  (PROGN (SETQ F (CDR (SETQ J (ASSOC 10 E))))
  9.         (SETQ G (CDR (SETQ K (ASSOC 11 E)))))(ERR))
  10. (SETQ C (ENTSEL "\nPick 2nd Line: "))
  11. (IF (= C nil)(ERR))
  12. (IF (= "LINE" (CDR (ASSOC 0 (SETQ D (ENTGET (SETQ M (CAR C)))))))
  13.  (PROGN (SETQ H (CDR (ASSOC 10 D)))
  14.         (SETQ I (CDR (ASSOC 11 D)))
  15.         (ENTDEL M))(ERR))
  16. (IF (< (DISTANCE F H) (DISTANCE F I))
  17.  (PROGN
  18.   (IF (< (DISTANCE G I) (DISTANCE F I))
  19.    (PROGN (SETQ E (SUBST (CONS 11 I) K E)) (ENTMOD E))
  20.    (PROGN (SETQ E (SUBST (CONS 10 I) J E)) (ENTMOD E))))
  21.  (PROGN
  22.   (IF (< (DISTANCE G H) (DISTANCE F H))
  23.    (PROGN (SETQ E (SUBST (CONS 11 H) K E)) (ENTMOD E))
  24.    (PROGN (SETQ E (SUBST (CONS 10 H) J E)) (ENTMOD E))))
  25. )(COMMAND)(COMMAND))
  26.